object BuscadorPresupuesto: TBuscadorPresupuesto
  Left = 0
  Top = 0
  Caption = 'Buscador Turistik'
  ClientHeight = 411
  ClientWidth = 427
  Color = clBtnFace
  OldCreateOrder = False
  OnShow = UniFormShow
  MonitoredKeys.Keys = <>
  PixelsPerInch = 96
  TextHeight = 13
  object pnlBuscador: TUniPanel
    Left = 0
    Top = 0
    Width = 427
    Height = 411
    Align = alClient
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clBtnFace
    TabOrder = 0
    object pnlFiltros: TUniPanel
      Left = 1
      Top = 41
      Width = 425
      Height = 136
      Align = alTop
      Anchors = [akLeft, akTop, akRight]
      Color = clBtnFace
      TabOrder = 1
      object rbComiencePresup: TUniRadioButton
        Left = 16
        Top = 115
        Width = 129
        Height = 17
        Checked = True
        Caption = 'Que comience con'
        TabOrder = 3
        ParentFont = False
        Font.Name = 'Century Gothic'
      end
      object rbContengaPresup: TUniRadioButton
        Left = 188
        Top = 115
        Width = 113
        Height = 17
        Checked = False
        Caption = 'Que contenga'
        TabOrder = 4
        ParentFont = False
        Font.Name = 'Century Gothic'
      end
      object dbBusquedaPresup: TUniEdit
        Left = 16
        Top = 79
        Width = 385
        Height = 22
        PasswordChar = #0
        CharCase = ecNormal
        MaxLength = 0
        CharEOL = #0
        ParentFont = False
        Font.Height = -13
        Font.Name = 'Century Gothic'
        TabOrder = 2
        Color = clWindow
        OnExit = dbBusquedaPresupExit
      end
      object rgFiltroPresupuesto: TUniRadioGroup
        Left = 16
        Top = 7
        Width = 385
        Height = 62
        Items.Strings = (
          'C'#243'digo'
          'Nombre')
        ItemIndex = 0
        OnClick = rgFiltroPresupuestoClick
        Caption = 'Buscar por:'
        TabOrder = 1
        ParentFont = False
        Font.Name = 'Century Gothic'
        Font.Style = [fsBold]
      end
    end
    object btnBuscarPresup: TUniButton
      Left = 1
      Top = 177
      Width = 425
      Height = 25
      Caption = 'Buscar'
      Anchors = [akLeft, akTop, akRight]
      Align = alTop
      TabOrder = 2
      OnClick = btnBuscarPresupClick
    end
    object dbgBusquedaPresup: TUniDBGrid
      Left = 1
      Top = 202
      Width = 425
      Height = 175
      DataSource = dsBusquedaPresup
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
      WebOptions.LoadMaskMsg = 'Please wait...'
      OnDblClick = dbgBusquedaPresupDblClick
      StripeRows = False
      Align = alTop
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 3
      Columns = <
        item
          FieldName = 'DESCRIPCION_PRESUP'
          Title.Caption = 'DESCRIPCION DEL PRESUPUESTO'
          Width = 250
          Visible = True
          Expanded = False
        end
        item
          FieldName = 'COSTO'
          Title.Alignment = taRightJustify
          Title.Caption = 'COSTO'
          Width = 70
          Visible = True
          Alignment = taRightJustify
          Expanded = False
        end
        item
          FieldName = 'FECHA_VENCIMIENTO'
          Title.Alignment = taCenter
          Title.Caption = 'VENCIMIENTO'
          Width = 75
          Visible = True
          Alignment = taCenter
          Expanded = False
        end>
    end
    object pnlTitulo: TUniPanel
      Left = 1
      Top = 1
      Width = 425
      Height = 41
      Align = alTop
      Anchors = [akLeft, akTop, akRight]
      Color = clSilver
      TabOrder = 4
      object lblTitulo: TUniLabel
        Left = 1
        Top = 1
        Width = 423
        Height = 39
        Alignment = taCenter
        AutoSize = False
        Caption = 'Buscador Turistik'
        Align = alClient
        Anchors = [akLeft, akTop, akRight, akBottom]
        ParentFont = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -21
        Font.Name = 'Century Gothic'
        Font.Style = [fsBold]
        TabOrder = 1
      end
    end
  end
  object qryBusquedaPresup: TSQLQuery
    MaxBlobSize = -1
    ParamCheck = False
    Params = <>
    SQL.Strings = (
      'SELECT A.*'
      'FROM PRESUPUESTO_PROVEEDORES A')
    SQLConnection = UniMainModule.SQLConnection_Reg1
    Left = 304
    Top = 168
    object qryBusquedaPresupID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
      Visible = False
    end
    object qryBusquedaPresupID_CAMPANHA: TIntegerField
      FieldName = 'ID_CAMPANHA'
      Visible = False
    end
    object qryBusquedaPresupID_CATEGORIA: TIntegerField
      FieldName = 'ID_CATEGORIA'
      Visible = False
    end
    object qryBusquedaPresupID_SERVICIO: TIntegerField
      FieldName = 'ID_SERVICIO'
      Visible = False
    end
    object qryBusquedaPresupID_PROVEEDORES: TIntegerField
      FieldName = 'ID_PROVEEDORES'
      Visible = False
    end
    object qryBusquedaPresupDESCRIPCION_PRESUP: TStringField
      FieldName = 'DESCRIPCION_PRESUP'
      Visible = False
      Size = 250
    end
    object qryBusquedaPresupHABITACIONES_DISP: TIntegerField
      FieldName = 'HABITACIONES_DISP'
      Visible = False
    end
    object qryBusquedaPresupFECHA_VENCIMIENTO: TDateField
      FieldName = 'FECHA_VENCIMIENTO'
      Visible = False
    end
    object qryBusquedaPresupESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Visible = False
      Size = 1
    end
    object qryBusquedaPresupCOSTO: TFloatField
      FieldName = 'COSTO'
      Visible = False
    end
    object qryBusquedaPresupIVA: TFloatField
      FieldName = 'IVA'
      Visible = False
    end
    object qryBusquedaPresupOPERADOR: TStringField
      FieldName = 'OPERADOR'
      Visible = False
      Size = 10
    end
    object qryBusquedaPresupFECHA_CARGA: TDateField
      FieldName = 'FECHA_CARGA'
      Visible = False
    end
    object qryBusquedaPresupFECHA_EMISION: TDateField
      FieldName = 'FECHA_EMISION'
      Visible = False
    end
  end
  object dsBusquedaPresup: TDataSource
    DataSet = cdsBusquedaPresup
    Left = 304
    Top = 216
  end
  object prvBusquedaPresup: TDataSetProvider
    DataSet = qryBusquedaPresup
    Options = [poIncFieldProps, poUseQuoteChar]
    Left = 304
    Top = 264
  end
  object cdsBusquedaPresup: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'prvBusquedaPresup'
    Left = 304
    Top = 312
    object cdsBusquedaPresupID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
    end
    object cdsBusquedaPresupID_CAMPANHA: TIntegerField
      FieldName = 'ID_CAMPANHA'
    end
    object cdsBusquedaPresupID_CATEGORIA: TIntegerField
      FieldName = 'ID_CATEGORIA'
    end
    object cdsBusquedaPresupID_SERVICIO: TIntegerField
      FieldName = 'ID_SERVICIO'
    end
    object cdsBusquedaPresupID_PROVEEDORES: TIntegerField
      FieldName = 'ID_PROVEEDORES'
    end
    object cdsBusquedaPresupDESCRIPCION_PRESUP: TStringField
      FieldName = 'DESCRIPCION_PRESUP'
      Size = 250
    end
    object cdsBusquedaPresupHABITACIONES_DISP: TIntegerField
      FieldName = 'HABITACIONES_DISP'
    end
    object cdsBusquedaPresupFECHA_VENCIMIENTO: TDateField
      FieldName = 'FECHA_VENCIMIENTO'
    end
    object cdsBusquedaPresupESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Size = 1
    end
    object cdsBusquedaPresupCOSTO: TFloatField
      FieldName = 'COSTO'
      DisplayFormat = '###.###.###.###,#'
      EditFormat = '###.###.###.###,#'
    end
    object cdsBusquedaPresupIVA: TFloatField
      FieldName = 'IVA'
    end
    object cdsBusquedaPresupOPERADOR: TStringField
      FieldName = 'OPERADOR'
      Size = 10
    end
    object cdsBusquedaPresupFECHA_CARGA: TDateField
      FieldName = 'FECHA_CARGA'
    end
    object cdsBusquedaPresupFECHA_EMISION: TDateField
      FieldName = 'FECHA_EMISION'
    end
  end
end
